|
4
|
How can I fit or ensure that all elements are in the control's client area
local var_Elements as IElements
var_Elements := oDCOCX_Exontrol1:Elements
var_Elements:Add("Element A",-500,-500):BackColor := RGB(0,255,0)
var_Elements:Add("Element B",500,500):BackColor := RGB(255,0,0)
var_Elements:Add("Element C",48,24)
oDCOCX_Exontrol1:FitToClient()
|
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn")
var_Appearance:Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn")
var_Appearance:Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn")
var_Appearance:Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn")
var_Appearance:Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn")
var_Appearance:Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn")
var_Appearance:Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn")
var_Appearance:Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn")
var_Appearance:Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn")
var_Appearance:Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn")
var_Appearance:Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn")
var_Appearance:Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn")
oDCOCX_Exontrol1:[Background,exContextMenuAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1fefefe
oDCOCX_Exontrol1:[Background,exContextMenuSelBackColor] := 0xe000000
oDCOCX_Exontrol1:[Background,exToolBarAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exToolBarBackColor] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exToolBarButtonHotBackColor] := 0xc000000
oDCOCX_Exontrol1:[Background,exToolBarButtonDownBackColor] := 0xe000000
oDCOCX_Exontrol1:[Background,exContextMenuHotBackColor] := 0xc000000
oDCOCX_Exontrol1:[Background,exContextMenuSelHotBackColor] := 0x23000000
oDCOCX_Exontrol1:[Background,0x2 | ] := 0x22000000
oDCOCX_Exontrol1:[Background,0x3 | ] := 0x23000000
oDCOCX_Exontrol1:[Background,exCheckBoxState0] := 0x20000000
oDCOCX_Exontrol1:[Background,exCheckBoxState1] := 0x21000000
oDCOCX_Exontrol1:[Background,exRadioButtonState0] := 0x1e000000
oDCOCX_Exontrol1:[Background,exRadioButtonState1] := 0x1f000000
oDCOCX_Exontrol1:EndUpdate()
|
|
2
|
Context Menu - Microsoft Paint - Ribbon Like
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn")
var_Appearance:Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn")
var_Appearance:Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn")
var_Appearance:Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn")
var_Appearance:Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn")
var_Appearance:Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn")
var_Appearance:Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn")
var_Appearance:Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn")
var_Appearance:Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn")
var_Appearance:Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn")
var_Appearance:Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn")
var_Appearance:Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn")
var_Appearance:Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn")
var_Appearance:Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn")
var_Appearance:Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn")
var_Appearance:Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn")
var_Appearance:Add(17,"CP:16 0 0 0 1")
var_Appearance:Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn")
var_Appearance:Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn")
var_Appearance:Add(20,"CP:19 0 0 0 1")
oDCOCX_Exontrol1:[Background,exContextMenuAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exContextMenuForeColor] := RGB(21,66,139)
oDCOCX_Exontrol1:[Background,exContextMenuSelBackColor] := 0xe000000
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1fefefe
oDCOCX_Exontrol1:[Background,exToolBarAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exToolBarBackColor] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exToolBarButtonHotBackColor] := 0xd000000
oDCOCX_Exontrol1:[Background,exToolBarButtonDownBackColor] := 0x1000000
oDCOCX_Exontrol1:[Background,0x2 | ] := 0xd000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameSingle] := 0x5000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHStart] := 0x6000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHIntermediate] := 0x7000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHEnd] := 0x8000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVStart] := 0x9000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVIntermediate] := 0xa000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVEnd] := 0xb000000
oDCOCX_Exontrol1:[Background,exContextMenuHotBackColor] := 0xc000000
oDCOCX_Exontrol1:[Background,exContextMenuSelHotBackColor] := 0xf000000
oDCOCX_Exontrol1:EndUpdate()
|
|
1
|
Context Menu - Microsoft Office - Ribbon Like
local var_Appearance as IAppearance
oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn")
var_Appearance:Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn")
var_Appearance:Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn")
var_Appearance:Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn")
var_Appearance:Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn")
var_Appearance:Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn")
var_Appearance:Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn")
var_Appearance:Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn")
var_Appearance:Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn")
var_Appearance:Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn")
var_Appearance:Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn")
var_Appearance:Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn")
var_Appearance:Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn")
var_Appearance:Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn")
var_Appearance:Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn")
var_Appearance:Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn")
var_Appearance:Add(17,"CP:16 0 0 0 1")
var_Appearance:Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn")
var_Appearance:Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn")
var_Appearance:Add(20,"CP:19 0 0 0 1")
oDCOCX_Exontrol1:[Background,exContextMenuAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exContextMenuForeColor] := RGB(21,66,139)
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1fefefe
oDCOCX_Exontrol1:[Background,exToolBarAppearance] := 0x1000000
oDCOCX_Exontrol1:[Background,exToolBarBackColor] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exToolBarButtonHotBackColor] := 0xd000000
oDCOCX_Exontrol1:[Background,exToolBarButtonDownBackColor] := 0x1000000
oDCOCX_Exontrol1:[Background,0x2 | ] := 0xd000000
oDCOCX_Exontrol1:[Background,0x3 | ] := 0x1000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameSingle] := 0x5000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHStart] := 0x6000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHIntermediate] := 0x7000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameHEnd] := 0x8000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVStart] := 0x9000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVIntermediate] := 0xa000000
oDCOCX_Exontrol1:[Background,exContextMenuGroupPopupFrameVEnd] := 0xb000000
oDCOCX_Exontrol1:[Background,exContextMenuHotBackColor] := 0xc000000
oDCOCX_Exontrol1:[Background,exContextMenuSelBackColor] := 0xe000000
oDCOCX_Exontrol1:[Background,exContextMenuSelHotBackColor] := 0xf000000
oDCOCX_Exontrol1:EndUpdate()
|